OPLObjectFile** LOC::E:\ODE\JBTREE\JBTREE.OPL` JBTree.ODB \OPD\ BEGIN +#JBTREE Version 4.2.6 JBSoft 1992-6 TIME% SIZE& MDATE& SPARE& CHECKWHR INSTALL JBINIT AFONT DRIVE% DIRKEY% JBTREEO jbtree\K jbtl.dbfK jbtree.dbfK jbtl.opoK jbtl.dbfK jbtree.K Reading Drive Sort Off Sort On Info Off Info On PRTPCKI% rem::c:O Drive Location LocalOl+ RemoteOr Drive Drive LOC::A:,LOC::M:,LOC::B:,LOC::C:,ROM::,REM::A:,REM::B:,REM::C:,REM::D:,REM::E:,REM::F:,REM::G:,REM::H:,REM::I:,REM::J:,REM::K:,REM::L:,REM::M:,REM::N:,REM::O:,REM::P:,REM::Q:,REM::R:,REM::S:,REM::T:,REM::U:,REM::V:,REM::W:,REM::X:,Select Select Drive SelectC[A rem::*W Remote Drive loc:: rem:: +"Drive does not exist - press a key ALLOC ALLOC O$h@[ ROM::W + Too many directoriesK filesK - abridgedK TSTK% ALLOC BALLOC ROM::W ROM:: *KO0W O$h@[ Get Filenames abandonedO REDODIR READFILE PRTDIR CHKPTH$ PRTFILE SSORT DRIVE% JBTINIT CONFIG FILEKEY% DIRKEY% PRTPCKI% AFONT SRCH% READDIR DISPFILE SEARCH ABOUT MAKEDIR ALLOC IPOS$ SPOS$ LCARD TSTK% PRT2DIR Working O~0\`\[ OD@[~ Delete Directories YesOy+ WorkingO Choose Destination WorkingO Reading Drive Rename Dir NameO Deleting WorkingO WorkingO Config+ JBTreeOC+ ViewOF DisplayS + Pack Info(f Directory InfoOI Work+ Change Drive(d Search(l Search Again(a Update(u + Directory+ AddO++ DeleteO-+ Copy(c Move(m Delete SubOD OA0`[ WorkingO PRTDIR1 PRT2DIR PRTDIR2 \C\[ TSTK% TSTK% PRTFILEN No files PRTFILEI PTFILE JBTINIT CONFIG AFONT PRTDIR PRT2DIR PRTFILE ABOUT READFILE MKPATH% DIRKEY% MDIR% READDIR PRTPCKI% PRTFILEI DISPFILE ALLOC SEARCH PRTFILEN IPOS$ SPOS$ LCARD SSORT O~0\`\[ OV@[$ Input Drive/Directory DestinationO +"Directory Doesn't exist - Make it?O YesOy+ W7Oy@[' Choose Destination Copying Moving and RenamingK Original Name New Name OaD\[3 + OverwriteOo+ AllOa+ LeaveOl OlD\[= Working Delete - Are you sure? NoOn+ YesOy Error! Unable to Delete Error isW Error NoW Rename Old Name New Name New Extension OT@[/ Config+ JBTreeOC+ ViewOF DisplayS Update(u Directory SizeOI Mark+ All(t Unmark AllOT File+ Copy(c Move(m Delete(d View/Run(v View in WordOV+ Hex Editor(h Rename+ CopyOR+ MoveOM+ Rename(r + File Info+ Attributes(a Information(n + Pack Info(f OA0`[! ATTRR Group File Atributes AttributesK Read only,Read/Write Modified,Unmodified Hidden,Shown System,Non-system NUM2STR$ TIME% WPWC}O AttributesO WPWC}O READFILE PRTDIR2 Home: 1st DirO End: Last DirO Tab: Files/Dir switchO S: SortKO Shift-#: Goto dir/fileO C: JBTree ConfigKO F: View ConfigKO U: Update files/DirsKO F: Pack InfoKO L: Launch MenuKO D: Change DriveKO + : Sub-DirKO : Up-DirKO +: Add DirKO -: Del DirKO R: Rename DirKO C: Copy DirsKO M: Move DirsKO D: Delete DirsKO L: Look for FileKO A: Look againKO I: Toggle Files InfoKO T: Mark All FilesKO T: Unmark All FilesKO Space: Mark file toggleO : Mark toggle + Move downO + D: DeleteKO C(Sh-R): Copy (& Rename)KO (Sh)M: Move (& Rename)KO + R: RenameKO A: File AttributesKO N: InfoKO (Sh)V/K H: View file (Hex)KO HELP Both Files Directories O.hD`[ O.h@[ RUNAPP% ROM::DATA.APPO OJBTreeO .DBFKO ATTRR HEAD$ RUNAPP% OWordO . $KO ROM::WORD.APP OPAC`[ EXTRA$ ALIAS$ Show in Word YesOy+ rom::word.app RUN$# ALIAS$# ALIAS$# EXTRA$# EXTRA$# RUN$# h@\[, EXTRA$# EXTRA$# TYPE% AINS% OPAPP% HEAD$ RUNAPP% This program requires files Use O -F to configure ProgramKO using files with extension O`W +)and try again selecting a datafile to runO Press to continueO .APPKO rom::sys$prgoO TYPE% O0WPW OPLObjeC[ ROM::G\[ FREE$ Write protected + Flash SSD RAM SSD Floppy Hard Drive External Internal Drive formattableK compressibleK Pack Information on Status Size (bytes)O HWC}O Free (bytes)O HWC}O FlashW Reclaimable bytesKO Used (bytes)O HWCM}O AFONT SORT% SORT% + Configure + File Info+ Yes,No Sort+ Yes,No SORT%$ SORT% SORT% FIND% ALLOC CHKPTH$ ISDIR% :\G[- Use existing Directory+ No,Yes Creating DirO OaD\[< + OverwriteOo+ AllOa+ LeaveOl CopyingO DeletingO Deleting DirO ISDIR% ALLOC FIND% ALLOC Search Search forO Getting Directories Searching for K not foundK STORE& EDIT% FOPEN% HREAD File to show FilenameO Range: W2O - K Standby Range: EDIT% File in use EDIT% Edit ON K OFF K Pos: HELP W2O HELP -Ctrl-KO - File startKO -Ctrl-KO - File EndKO Tab - Toggle to ASCII ColumnsO E - Toggle EditKO F - FindKO G - Find againKO J - Jump to new locationKO O - Open new fileKO TLW-O + Searching WPWPW HREAD RANGE HEDIT$ LCARD HHELP ABOUT FOPEN% FIND% EVSTR& EDIT% STORE& O @[' OG0\` h@\[V Og0\[ OG0\`[ P{IMx Work+ Find(f Find Again(g Jump to(j OA0`[ Find ASCII Find Hex Find $ + Not found Jump to Location $ About JBTreeO Contact:+ CompuServe 100014,1240 +'CIX/Internet jboyce@cix.compulink.co.uk AGETLIST Sundry+ About(a Exit(x Sundry+ LaunchOL+ About(j Exit(x Sundry+ About(j Exit(x SFIND% PRTPCKI% RUNAPP% loc:: \app\jbfind.opaK rom::sys$prgo.imgO .opaKO .alsW EXTRA$' Error! O0WPW MO {1[I {IxWP EDIT% Edit Off Edit On Current Current Current Internal Drive for Config files NXTDIR% ISDIR% Making O h@[ ISDIR% SELDRV% MKPATH% CHOVER% Installing O h@`[w jbtree.dbfKO jbtl.dbfKO File exists+ Overwrite,Skip CARD% AINIT% ACARD ACONFIG ALAUNCH% APP$# + Configure LaunchO Launch Launch O 0\[ FILE$# FILE$# APP$# Press <> to continue CARD% AINIT% RUNAPP% ODataO .DBFKO ROM::DATA.APPO AINIT% ROM:: Choose Application ApplicationO + Data fileO! Run keyO +0Lower case for Psion+k / Upper for Shift+Psion+k APP$' FILE$' RUNAPP% + Starting OPLC[r rom::sys$prgo.img .OPOKO AEDIT + Operation+ Edit,Add,Return FILE$ No datafile ISDIR% loc::m: loc::a: loc::b: PACK% RDREC& RECURSE& Working RECURSE& PACK% O \O D[ {Q}Jz O WPW {Q}Jz {Q}Jz {Q}Jz PACK% {Q}Jz Getting Info WPWCI WPWCI Files Information Number of files: Total size of files: bytesK Number of marked files: Total size of marked files: bytesK START BEGIN ALLOC SPOS$? IPOS$v DRIVE% REIN( BALLOCb READDIR STR$U READFILE SSORT DIRKEY%7 REDODIR PRTDIR PRTDIR1 PRTDIR2 PRTFILE PRTFILEN FILEKEY%f) PTFILEH< ATTRR ISDIR%e? NUM2STR$ PRTFILEI'@ MAKEDIR PRT2DIRqC PHL`E TSTK%JL RUNAPP%lL CONFIG VIEW6N GINF.Q AINS%AS OPAPP% CHKPTH$)V PRTPCKI% AFONT JBTINITGZ JBINIT SRCH%za MDIR% HREAD RANGE PHL%!k FOPEN% POS|m HHELP HCENBo FIND% ABOUT LCARD SEARCH SFIND%L HEAD$ EVSTR& HEDIT$e SELDRV% NXTDIR% MKPATH%4 INSTALL CHOVER% GKEYg AGETLIST ACARD AEDIT ALAUNCH% ACONFIG\ AINIT% CHECKWHRV FREE$6 RECURSE& RDREC& DISPFILE